Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1634 1594 (N22W57 L=255)  1559    263        1 (1536/1557-1729/1650) -28.1 W50-W66 N18-N27
      2 1725 1436 (N11W57 L=255)   668    134        1 (1671/1376-1763/1471) -54.5 W53-W59 N07-N14
      3 1164 1428 (N22W17 L=215)  2020    541        7 ( 937/1394-1443/1451) -15.7 W02-W35 N17-N27
      4 1280 1264 (N11W20 L=218)   398    157        0 (1215/1228-1332/1290) -39.8 W15-W22 N07-N12
      5 1593 1261 (N04W40 L=238)   375     48        0 (1563/1232-1619/1290) -45.0 W38-W41 N02-N06
      6 1028 1239 (N14W04 L=203)   256    100        0 ( 994/1213-1074/1282) -59.0 W02-W06 N11-N17
      7  159 1208 (N29E60 L=138)   508    137        0 ( 130/1191- 188/1227) -23.2 E63-E56 N27-N30
      8  753 1140 (N14E14 L=185)   862    234        2 ( 654/1044- 829/1224) -63.4 E18-E10 N06-N20
      9 1849 1112 (S10W59 L=257)   856    186        2 (1800/1078-1898/1141)  -4.8 W53-W65 S11-S08
     10  225 1088 (N20E54 L=145)   460    107        3 ( 196/1058- 258/1120) -53.1 E56-E50 N18-N22
     11 1781 1024 (S13W50 L=248)  1641    358        6 (1701/ 928-1847/1100) -80.5 W43-W56 S19-S07
     12 1840  925 (S20W54 L=253)  1018    157        2 (1808/ 846-1878/ 982)  69.4 W50-W58 S24-S16
     13  311  903 (N08E49 L=150)   370    137        1 ( 260/ 885- 362/ 919)  -6.3 E53-E44 N06-N08
     14 1382  881 (S13W18 L=217)   202     69        0 (1361/ 864-1414/ 905) -33.7 W17-W20 S14-S11
     15  261  625 (S07E63 L=135)   513    117        0 ( 249/ 580- 273/ 679)  56.3 E65-E60 S10-S04
     16  314  607 (S09E58 L=140)   537    154        0 ( 300/ 549- 326/ 661)  40.6 E62-E55 S12-S06
     17 1219  507 (S33W02 L=200)   895    213        0 (1114/ 449-1288/ 590)  21.0 E06-W07 S35-S29
     18  765  411 (S30E32 L=167)  1117    256        1 ( 704/ 331- 830/ 504)  29.4 E39-E23 S34-S24
     19  294  458 (S18E69 L=129)  1019     98        1 ( 259/ 420- 324/ 492) -59.0 E72-E66 S20-S15
  

    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