Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  515 1715 (N33E50 L=198)  1202    186        3 ( 485/1669- 552/1763) -58.0 E55-E44 N29-N37
      2  684 1608 (N26E31 L=216)   291     74        1 ( 654/1588- 720/1632)   0.0 E33-E28 N25-N28
      3 1356 1440 (N24W16 L=263)   641    106        1 (1317/1387-1386/1489) -59.0 W13-W18 N20-N26
      4  268 1347 (N07E57 L=190)  2214    329        1 ( 181/1290- 362/1385)  12.5 E67-E48 N03-N09
      5 1562 1228 (N14W31 L=279)  1456    289        7 (1479/1102-1609/1348) -52.4 W24-W34 N06-N19
      6  377 1178 (S03E44 L=204)   441    124        0 ( 345/1133- 419/1227) -39.8 E46-E39 S05-N00
      7  223 1067 (S10E56 L=191)  1277    403        2 ( 116/1016- 314/1132)  18.4 E69-E48 S13-S06
      8  771  919 (S15E14 L=233)   378    150        0 ( 698/ 871- 835/ 954) -12.5 E18-E09 S17-S13
      9  193  915 (S20E59 L=189)   372     91        1 ( 170/ 885- 212/ 950)  53.1 E61-E56 S21-S17
     10  680  792 (S23E19 L=228)   291    118        0 ( 663/ 738- 695/ 845)  90.0 E20-E18 S26-S20
     11 1602  739 (S14W42 L=289)   898    279        0 (1477/ 691-1701/ 783)  28.1 W33-W48 S18-S10
     12  807  390 (S50E08 L=240)   396    104        1 ( 772/ 346- 831/ 430) -56.3 E11-E05 S52-S46
     13  865  206 (S66W01 L=249)   565     60        1 ( 833/ 183- 892/ 230)   7.1 E03-W05 S68-S63
  

    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