Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  896 1430 (N29E09 L=240)   270     71        0 ( 860/1410- 938/1451)  -9.5 E12-E06 N27-N30
      2  585 1270 (N18E30 L=220)   640    107        1 ( 563/1209- 609/1320)  90.0 E31-E27 N14-N21
      3 1144 1276 (N19W08 L=257)   314     68        2 (1108/1251-1176/1296) -26.6 W05-W09 N17-N20
      4 1438 1208 (N15W27 L=276)   226     67        0 (1408/1173-1455/1237) -63.4 W25-W28 N12-N16
      5 1295 1169 (N12W17 L=266)   362    128        0 (1245/1132-1337/1221)  39.8 W13-W20 N10-N15
      6 1159 1164 (N12W08 L=258)   340    115        1 (1120/1128-1214/1205) -33.7 W05-W11 N09-N14
      7  338 1185 (N12E49 L=201)   302     99        0 ( 303/1159- 365/1201) -18.4 E51-E45 N10-N12
      8 1436 1108 (N08W26 L=276)   299     85        2 (1397/1081-1482/1137) -18.4 W23-W29 N06-N10
      9 1802 1098 (N07W57 L=306)   515     98        1 (1783/1062-1831/1135) -45.0 W54-W60 N04-N09
     10  215  977 (S02E60 L=189)  1643    267        3 ( 151/ 942- 277/1019)  10.6 E69-E53 S03-N01
     11 1201  853 (S07W11 L=260)   266     75        2 (1178/ 816-1239/ 887)  68.2 W09-W13 S09-S04
     12  905  849 (S08E07 L=242)   208     22        0 ( 882/ 835- 929/ 866)   0.0 E08-E05 S08-S06
     13  800  768 (S13E14 L=235)   549    153        2 ( 747/ 730- 876/ 807)  32.0 E17-E09 S15-S10
     14 1290  765 (S13W17 L=266)   241     45        1 (1270/ 742-1315/ 790) -18.4 W15-W18 S14-S11
     15 1596  706 (S17W40 L=289)  1503    340        7 (1548/ 589-1638/ 774) -80.5 W35-W43 S24-S12
     16  447  695 (S19E40 L=209)   331     64        0 ( 423/ 668- 473/ 735) -59.0 E41-E38 S20-S15
     17 1198  651 (S20W12 L=261)   267     49        1 (1172/ 626-1220/ 676)  56.3 W10-W13 S21-S18
     18  899  577 (S25E08 L=241)   249     71        0 ( 875/ 547- 937/ 603)  45.0 E09-E05 S27-S23
     19  647  550 (S28E27 L=223)   353     88        1 ( 608/ 532- 689/ 570)  18.4 E29-E23 S29-S26
     20 1435  546 (S28W30 L=279)   274     75        0 (1401/ 534-1476/ 558)  11.3 W27-W33 S28-S26
     21  903  488 (S32E08 L=241)   306     45        0 ( 882/ 462- 930/ 517) -76.0 E09-E06 S33-S29
  

    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