Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1584 1713 (N25W68 L= 88)  2505    263        3 (1452/1659-1689/1743) -27.6 W56-W81 N19-N31
      2 1773 1491 (N08W68 L= 87)   543     97        0 (1759/1434-1785/1530)  35.5 W63-W71 N04-N09
      3 1882 1253 (S08W67 L= 86)  1778    141        5 (1823/1201-1927/1320)  22.6 W59-W74 S11-S04
      4  313 1219 (N35E45 L=335)   775    212        1 ( 232/1142- 372/1262) -36.3 E54-E39 N28-N39
      5 1539 1151 (S02W33 L= 52)   259     84        0 (1522/1110-1552/1189) -90.0 W31-W33 S04-N00
      6  742 1054 (N15E15 L=  5)   240     76        1 ( 717/1030- 760/1083) -71.6 E16-E13 N13-N16
      7  122 1046 (N28E71 L=309)  1257     90        2 (  71/1010- 161/1070)  -8.1 E88-E63 N25-N29
      8  696 1013 (N14E19 L=  1)   227     51        1 ( 668/ 991- 719/1034) -33.7 E20-E17 N11-N14
      9 1567  986 (S11W30 L= 50)   278     70        0 (1534/ 953-1588/1018)  26.6 W27-W31 S12-S09
     10  640  983 (N13E23 L=357)   206     52        0 ( 620/ 955- 656/1005) -71.6 E23-E21 N11-N14
     11 1421  883 (S13W18 L= 38)  1005    317        0 (1342/ 754-1501/ 996) -86.6 W15-W21 S22-S05
     12 1774  949 (S20W45 L= 65)   411     56        0 (1749/ 923-1793/ 988)  36.9 W42-W47 S21-S18
     13 1302  800 (S14W09 L= 29)   730    255        2 (1191/ 746-1354/ 876)   5.2 W02-W13 S16-S09
     14 1784  839 (S27W45 L= 65)   398     93        0 (1743/ 810-1824/ 865)   0.0 W40-W49 S28-S26
     15  856  702 (S07E18 L=  2)  1043    288        0 ( 815/ 567- 907/ 819)  42.7 E24-E11 S14-S02
     16  377  499 (S08E59 L=321)  1332    152        3 ( 342/ 429- 413/ 565)  31.6 E67-E52 S12-S04
     17  500  467 (S13E50 L=330)  1055    140        5 ( 475/ 401- 528/ 545)  55.0 E54-E46 S17-S07
     18  624  376 (S21E46 L=334)  2584    413        7 ( 549/ 227- 761/ 517)  21.8 E65-E30 S31-S14
     19 1399  458 (S39W07 L= 26)   367     57        1 (1379/ 421-1420/ 489) -90.0 W05-W08 S41-S35
     20  432  460 (S12E56 L=323)   586     78        3 ( 399/ 430- 473/ 484) -15.9 E59-E52 S13-S10
     21 1298  334 (S45E05 L= 15)  1261    160        4 (1242/ 275-1374/ 381)   0.0 E09-W02 S49-S40
     22 1223  267 (S48E14 L=  6)   337     48        1 (1199/ 243-1243/ 288)  53.1 E15-E11 S49-S45
  

    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