Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1370 1644 (N43W34 L=215)   624    139        0 (1304/1620-1430/1675) -21.8 W28-W38 N41-N46
      2 1657 1499 (N31W55 L=236)   542     98        1 (1617/1477-1706/1520) -18.4 W50-W59 N28-N32
      3 1216 1488 (N33W16 L=197)   379     69        0 (1178/1463-1250/1510) -31.0 W13-W18 N31-N34
      4  238 1320 (N23E63 L=118)   447    105        0 ( 203/1298- 286/1336)  10.3 E68-E56 N21-N24
      5  518 1297 (N22E34 L=147)   589    163        0 ( 464/1254- 569/1321)  14.0 E38-E30 N19-N23
      6 1236 1245 (N17W14 L=195)   312    117        0 (1195/1203-1272/1303) -56.3 W12-W16 N14-N20
      7  373 1217 (N17E46 L=135)   393     73        1 ( 352/1190- 398/1251)  53.1 E47-E43 N15-N19
      8  858 1055 (N06E10 L=171)   246     87        0 ( 819/1042- 908/1065)   0.0 E12-E07 N05-N07
      9 1079  865 (S06W03 L=184)   707    212        1 ( 995/ 805-1144/ 927) -45.0 E02-W06 S09-S01
     10 1495  873 (S07W30 L=211)   277     67        0 (1479/ 848-1519/ 909) -76.0 W28-W31 S08-S04
     11 1540  770 (S14W33 L=214)   624    136        1 (1492/ 724-1564/ 829)  56.3 W30-W35 S16-S10
     12  247  747 (S13E60 L=121)  1085    204        0 ( 230/ 655- 277/ 814)  48.0 E64-E54 S18-S08
     13 1741  717 (S19W52 L=233)   591    128        2 (1701/ 676-1777/ 754)  51.3 W48-W56 S21-S16
     14  729  692 (S16E20 L=161)  1224    257        5 ( 601/ 640- 836/ 744)  -3.8 E28-E13 S19-S12
     15 1118  596 (S23W05 L=186)  1159    266        1 (1027/ 494-1210/ 676)  50.2 E01-W10 S30-S18
     16 1542  613 (S24W36 L=217)   510    162        0 (1486/ 555-1591/ 675)  53.1 W31-W38 S28-S20
     17  851  604 (S22E13 L=168)   214     27        0 ( 833/ 586- 869/ 623) -56.3 E14-E11 S23-S20
     18 1363  310 (S48W29 L=210)   746     96        2 (1336/ 271-1390/ 348) -48.8 W24-W31 S51-S43
     19  994  228 (S54E07 L=174)   446     50        0 ( 977/ 204-1013/ 255) -71.6 E09-E05 S56-S50
     20 1089  208 (S57W02 L=183)   548     52        0 (1067/ 181-1117/ 232) -45.0 W00-W06 S60-S53
     21 1214  190 (S60W18 L=199)   713     43        0 (1198/ 160-1232/ 224) -51.3 W14-W23 S65-S55
  

    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