Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1022 1862 (N58W45 L=328)  2215    277        0 ( 945/1774-1112/1952)   6.5 W28-W81 N52-N60
      2  625 1633 (N55E11 L=272)   601    105        2 ( 575/1598- 668/1666)  16.7 E16-E05 N53-N57
      3 1592 1503 (N15W52 L=335)   447     58        2 (1562/1486-1629/1522)  -9.5 W49-W55 N13-N16
      4  581 1406 (N40E19 L=264)   388     55        0 ( 550/1381- 612/1427) -11.3 E21-E16 N37-N41
      5 1772  954 (S20W47 L=330)   676    193        0 (1732/ 875-1818/1035)  28.6 W41-W53 S23-S16
      6 1832  943 (S23W53 L=336)   478    101        0 (1802/ 907-1856/ 987)  15.9 W49-W56 S24-S21
      7 1550  732 (S26W24 L=307)   355     62        0 (1522/ 707-1575/ 756) -68.2 W22-W26 S28-S23
      8 1253  700 (S19W04 L=287)   201     37        0 (1233/ 684-1271/ 724)   0.0 W02-W05 S19-S17
      9 1405  685 (S24W13 L=296)   463    178        0 (1325/ 639-1477/ 719)   0.0 W07-W18 S25-S22
     10 1709  649 (S37W38 L=321)   381     54        2 (1680/ 623-1731/ 670)   0.0 W34-W40 S39-S35
     11 1067  564 (S22E10 L=273)   241     92        0 (1052/ 523-1097/ 599)  45.0 E12-E07 S24-S20
     12 1245  465 (S34E03 L=280)   566    147        1 (1168/ 446-1305/ 497) -14.0 E07-W01 S35-S30
     13 1596  437 (S50W26 L=309)   779     91        1 (1564/ 395-1627/ 479) -61.4 W22-W30 S55-S44
     14  877  396 (S27E29 L=255)   562    125        1 ( 857/ 348- 901/ 454)  40.6 E31-E24 S30-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