Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  474 1574 (N12E52 L=162)   818    193        2 ( 435/1499- 507/1647) -68.2 E57-E50 N06-N16
      2 1134 1528 (N27E08 L=206)   246    104        0 (1112/1482-1164/1568)  90.0 E09-E07 N23-N30
      3  285 1462 (N02E65 L=149)   504    137        2 ( 252/1448- 314/1476)   0.0 E70-E61 N00-N03
      4  766 1368 (N07E24 L=190)   221     47        2 ( 736/1346- 797/1385)  45.0 E25-E22 N05-N08
      5  449 1306 (S04E43 L=172)   502    129        1 ( 412/1230- 490/1358)  77.5 E44-E41 S09-N00
      6  181 1175 (S17E63 L=151)  1971    443        4 ( 106/1036- 279/1329)  62.2 E68-E58 S25-S06
      7  634 1194 (S06E27 L=188)   950    273        1 ( 590/1050- 665/1307) -60.3 E32-E22 S14-N00
      8 1390 1219 (N16W15 L=230)   413    151        2 (1344/1161-1419/1294)  90.0 W14-W16 N11-N20
      9 1677 1186 (N23W36 L=250)   680    105        3 (1645/1141-1701/1240) -81.9 W33-W38 N19-N26
     10  398 1097 (S17E41 L=174)   265    114        0 ( 369/1045- 442/1129)  63.4 E42-E38 S20-S14
     11  499 1016 (S19E31 L=183)   566    233        1 ( 409/ 985- 598/1053)  30.3 E38-E25 S22-S14
     12 1287  986 (S00W16 L=230)   216     49        1 (1264/ 956-1309/1016) -33.7 W13-W16 S01-N01
     13  924  930 (S13E03 L=211)   322    173        0 ( 851/ 885-1018/ 956)  41.2 E06-W02 S17-S10
     14 1796  911 (N11W53 L=267)   512     99        2 (1769/ 883-1817/ 950) -36.9 W50-W55 N10-N13
     15 1019  835 (S16W05 L=219)   246     90        2 ( 995/ 803-1043/ 865)  90.0 W03-W06 S17-S13
     16  572  842 (S28E23 L=192)   218     26        1 ( 555/ 821- 593/ 864)  90.0 E24-E21 S29-S26
     17  327  731 (S41E42 L=172)   355     53        0 ( 308/ 705- 350/ 756) -45.0 E44-E39 S42-S39
     18 1386  701 (S13W30 L=245)   430    204        5 (1338/ 675-1440/ 743)  26.6 W27-W34 S14-S10
     19 1008  666 (S26W10 L=224)   390    146        2 ( 993/ 600-1033/ 741) -49.4 W07-W13 S29-S21
     20 1174  595 (S25W22 L=236)   374    135        1 (1114/ 577-1247/ 620)  20.6 W18-W26 S26-S21
     21 1652  503 (S14W59 L=274)   830    124        2 (1610/ 467-1697/ 541)  71.6 W55-W63 S17-S11
     22 1105  506 (S32W22 L=236)   352     86        0 (1060/ 485-1150/ 536)   8.1 W18-W25 S32-S30
     23 1170  205 (S49W48 L=262)   660    175        1 (1149/ 163-1192/ 255) -24.4 W41-W52 S52-S46
  

    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