Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1192 1768 (N45W44 L= 76)   889     99        0 (1151/1731-1236/1794) -33.7 W39-W48 N42-N47
      2 1692 1542 (N14W65 L= 97)   800     90        1 (1643/1528-1740/1556) -18.4 W59-W71 N12-N16
      3 1142 1380 (N23W17 L= 50)   353     66        0 (1123/1346-1162/1413)  53.1 W15-W19 N21-N25
      4  933 1351 (N28W04 L= 36)   236     66        0 ( 916/1320- 962/1377)  26.6 W02-W06 N25-N28
      5 1792 1311 (S00W60 L= 93)   573    108        1 (1762/1255-1814/1362)  68.2 W58-W61 S03-N02
      6 1706 1229 (S02W48 L= 81)   394     53        1 (1669/1217-1739/1249) -18.4 W45-W51 S03-N00
      7  875 1168 (N19E05 L= 28)   674    191        4 ( 815/1105- 937/1244)  29.1 E09-W00 N16-N21
      8 1227 1152 (N08W15 L= 47)   275     66        2 (1205/1121-1247/1180)  45.0 W13-W16 N06-N09
      9  294 1120 (N29E49 L=343)   505    108        2 ( 269/1064- 312/1160) -74.1 E51-E47 N25-N32
     10  495 1080 (N23E32 L=  1)   611    170        1 ( 409/1036- 560/1108) -32.5 E38-E27 N18-N25
     11 1677 1073 (S09W41 L= 74)   345     60        2 (1658/1038-1702/1104)  76.0 W39-W43 S11-S07
     12 1881  949 (S24W60 L= 92)   704    120        0 (1848/ 904-1902/ 999)  26.6 W54-W63 S25-S21
     13  296  968 (N20E51 L=342)   313     40        1 ( 275/ 945- 321/ 990) -26.6 E52-E48 N18-N21
     14 1566  866 (S17W28 L= 61)  1144    352        2 (1415/ 838-1735/ 892) -23.5 W18-W41 S22-S12
     15 1163  772 (S11W01 L= 34)   237     70        0 (1144/ 738-1183/ 808)  56.3 W00-W02 S12-S09
     16 1065  586 (S19E10 L= 23)   375    110        1 (1053/ 532-1088/ 646)  60.3 E11-E07 S22-S15
     17  718  525 (S14E32 L=  0)   857    259        0 ( 669/ 422- 761/ 624)  35.5 E40-E25 S19-S09
     18  616  436 (S18E43 L=349)   291     45        0 ( 591/ 420- 649/ 450) -26.6 E45-E41 S18-S16
     19  514  382 (S19E56 L=337)   377     55        0 ( 496/ 348- 528/ 408)  45.0 E57-E53 S21-S17
     20  594  338 (S24E52 L=340)   521    125        0 ( 538/ 317- 621/ 374) -18.4 E56-E47 S25-S21
     21  500  329 (S23E62 L=330)   619     65        1 ( 478/ 306- 531/ 358)  76.0 E65-E59 S24-S20
     22  797  320 (S30E38 L=354)   686    104        0 ( 763/ 275- 845/ 358)  11.3 E43-E33 S32-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