Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  397 1591 (N58E48 L=321)  1320    192        1 ( 303/1565- 486/1628)   1.6 E71-E34 N55-N59
      2 1600 1434 (N15W48 L= 58)   547    143        0 (1572/1384-1633/1497)  50.2 W45-W53 N11-N17
      3 1312 1329 (N17W25 L= 34)   865    196        0 (1216/1298-1401/1356) -35.0 W19-W29 N13-N20
      4  651 1326 (N33E17 L=352)   419    151        1 ( 582/1301- 720/1341) -26.6 E22-E12 N30-N35
      5 1032 1287 (N22W07 L= 16)   662    224        0 ( 925/1262-1138/1311) -24.8 W00-W13 N18-N25
      6  185 1215 (N34E65 L=305)  1734    121        2 ( 121/1172- 244/1244)  -6.8 E80-E55 N31-N36
      7  905 1004 (N09E07 L=  2)   744    236        1 ( 837/ 907- 954/1098) -90.0 E09-E04 N03-N15
      8 1826  967 (S17W53 L= 62)   917    141        1 (1788/ 932-1890/1006) -22.6 W49-W61 S19-S13
      9 1322  803 (S12W12 L= 21)   326     79        0 (1282/ 773-1357/ 826) -53.1 W10-W13 S14-S10
     10  793  565 (S14E25 L=344)   826    151        1 ( 757/ 489- 834/ 636)  45.0 E28-E20 S19-S10
     11  261  579 (S05E68 L=301)   662     67        1 ( 245/ 542- 284/ 613)  51.3 E70-E64 S07-S02
     12 1716  537 (S43W42 L= 51)   517     63        1 (1690/ 515-1751/ 560)   0.0 W38-W46 S44-S40
     13 1510  410 (S45W20 L= 29)  1142    259        1 (1395/ 355-1618/ 460)  -5.0 W08-W31 S47-S43
     14  627  270 (S32E53 L=316)  1499    121        3 ( 579/ 214- 668/ 320)  18.4 E67-E46 S35-S27
  

    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