Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  983 1862 (N45E36 L=  8)   987     95        1 ( 947/1831-1028/1888)  59.0 E39-E32 N41-N48
      2 1072 1786 (N42E24 L= 20)   571     66        1 (1039/1762-1101/1813)  14.0 E26-E20 N39-N44
      3 1103 1636 (N31E14 L= 30)  1530    289        4 (1058/1529-1134/1743) -53.7 E20-E08 N24-N39
      4  392 1625 (N13E63 L=341)  1317    107        1 ( 365/1583- 416/1675) -56.3 E66-E59 N10-N16
      5  343 1541 (N07E63 L=341)   627    117        1 ( 309/1517- 387/1570)  23.2 E65-E57 N05-N08
      6  365 1489 (N04E57 L=347)   533    130        2 ( 320/1454- 417/1531)  39.8 E60-E53 N01-N07
      7  717 1393 (N06E28 L= 16)   895    233        2 ( 648/1332- 810/1482) -15.9 E34-E20 N03-N09
      8  522 1304 (S04E37 L=  7)   363    123        1 ( 469/1274- 563/1331)   0.0 E41-E33 S04-S02
      9 1019 1308 (N09E08 L= 36)   651    198        2 ( 933/1271-1111/1331)  21.8 E12-E01 N05-N11
     10 1044 1114 (S02E01 L= 43)  1110    327        1 ( 906/ 984-1129/1254)  76.0 E05-W01 S12-N08
     11  579  996 (S20E26 L= 18)   243     73        0 ( 539/ 973- 614/1019)   0.0 E28-E23 S20-S18
     12 1875  922 (N14W60 L=104)   442     91        1 (1861/ 881-1894/ 967) -45.0 W57-W63 N11-N16
     13  778  893 (S21E11 L= 33)   457    155        3 ( 713/ 855- 841/ 939)  49.4 E13-E07 S24-S16
     14  543  912 (S25E26 L= 18)   390     61        1 ( 512/ 890- 571/ 935) -14.0 E28-E24 S26-S23
  

    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