Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1143 1648 (N43E03 L=319)   514     72        2 (1116/1607-1165/1686) -50.2 E06-W00 N39-N45
      2  364 1442 (N15E56 L=266)  1384    170        2 ( 329/1356- 395/1508) -84.3 E59-E52 N09-N19
      3 1692 1343 (N30W45 L=  7)   849    213        2 (1617/1263-1746/1424) -36.0 W38-W50 N25-N34
      4  867 1378 (N19E16 L=306)   284     91        1 ( 828/1345- 905/1406)  59.0 E17-E13 N16-N21
      5 1057 1269 (N15E02 L=320)   275    101        0 (1028/1236-1095/1317) -45.0 E04-W00 N13-N17
      6 1804 1236 (N25W57 L= 19)   649     71        0 (1785/1198-1828/1268)  51.3 W54-W60 N22-N27
      7 1820 1108 (N17W58 L= 20)   852    149        2 (1764/1075-1885/1140)  -7.6 W51-W67 N16-N18
      8 1211  854 (S07W14 L=336)   210    113        0 (1158/ 833-1262/ 875)   0.0 W10-W17 S07-S06
      9 1229  723 (S15W18 L=340)   834    261        0 (1155/ 642-1280/ 774)  69.4 W12-W20 S20-S11
     10 1440  660 (S16W33 L=355)   403    122        0 (1385/ 626-1481/ 699)  50.2 W30-W35 S18-S12
     11  601  634 (S31E23 L=299)  1272    384        2 ( 453/ 580- 777/ 693)  22.9 E36-E10 S37-S24
     12 1555  440 (S28W53 L= 15)  3807    470        4 (1368/ 366-1738/ 550)  33.2 W39-W66 S34-S17
     13  993  374 (S43W11 L=333)  1351    287        2 ( 873/ 343-1128/ 405)  20.2 W01-W21 S46-S38
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y