Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  428 1595 (N58E43 L=328)   654     91        0 ( 382/1561- 471/1626)   8.7 E49-E36 N55-N60
      2 1582 1412 (N14W46 L= 57)   619    160        0 (1549/1350-1624/1484)  54.5 W43-W50 N10-N17
      3 1284 1314 (N17W23 L= 34)   898    198        0 (1189/1281-1377/1343) -35.0 W17-W27 N13-N20
      4  627 1315 (N33E19 L=352)   490    152        0 ( 560/1290- 697/1332) -26.6 E24-E14 N29-N35
      5 1035 1276 (N21W07 L= 18)   882    312        0 ( 894/1248-1173/1312) -17.4 E01-W15 N18-N25
      6  170 1211 (N34E67 L=304)  1768    122        3 ( 111/1170- 228/1240)  -4.1 E85-E57 N31-N36
      7  868  992 (N09E10 L=  2)   886    258        3 ( 796/ 892- 922/1091) -90.0 E11-E07 N03-N15
      8 1807  957 (S17W51 L= 62)   959    158        2 (1750/ 923-1875/ 995) -15.9 W45-W59 S19-S13
      9 1296  776 (S13W10 L= 21)   501    150        1 (1244/ 707-1330/ 816) -77.5 W07-W11 S18-S09
     10  244  582 (S05E70 L=301)   580     48        0 ( 228/ 560- 269/ 610)  45.0 E73-E66 S06-S03
     11  759  552 (S15E27 L=344)   871    133        2 ( 724/ 483- 799/ 606)  45.0 E30-E23 S18-S11
     12 1694  526 (S43W39 L= 51)   397     42        1 (1672/ 508-1725/ 543)   0.0 W36-W43 S44-S41
     13 1485  400 (S45W17 L= 29)  1139    257        0 (1370/ 349-1596/ 451)  -2.6 W06-W28 S47-S43
     14  608  269 (S31E55 L=316)  1428    120        1 ( 566/ 215- 644/ 317)  17.7 E70-E48 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