Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  607 1655 (N31E47 L=  8)   921    204        1 ( 589/1547- 629/1736) -40.9 E53-E38 N23-N36
      2 1545 1486 (N39W30 L= 85)   402     77        1 (1510/1454-1577/1513)  35.5 W26-W33 N35-N41
      3 1350 1427 (N30W14 L= 69)   493    236        0 (1253/1391-1446/1492)  -7.6 W06-W21 N28-N32
      4  806 1439 (N20E22 L= 33)   693    155        2 ( 747/1410- 872/1482)  39.8 E25-E18 N17-N24
      5 1692 1239 (N25W43 L= 98)   425     48        0 (1669/1210-1714/1266) -33.7 W40-W45 N23-N26
      6  211 1218 (S04E64 L=351)   705     88        1 ( 184/1174- 238/1257) -26.6 E69-E59 S05-S01
      7 1731 1144 (N19W47 L=102)   656     90        1 (1684/1114-1770/1176)   0.0 W42-W51 N18-N21
      8  449  857 (S21E35 L= 20)  3610    708        5 ( 206/ 701- 692/1094)  36.3 E66-E21 S36-S02
      9  177  963 (S20E65 L=350)  4990    261       11 ( 121/ 866- 233/1082)  81.9 E78-E57 S25-S11
     10 1778 1062 (N15W52 L=107)   444     58        0 (1742/1048-1811/1077)  15.9 W48-W55 N14-N16
     11 1209 1038 (N03W11 L= 66)   266     81        0 (1170/1008-1244/1065)  51.3 W08-W12 N00-N05
     12 1545  881 (N00W35 L= 90)   686    150        2 (1490/ 852-1615/ 925)   0.0 W30-W40 S01-N01
     13 1280  701 (S15W22 L= 77)   305     86        0 (1241/ 686-1336/ 716)  18.4 W19-W25 S16-S14
     14 1069  667 (S22W10 L= 65)   255     68        0 (1041/ 647-1103/ 688)   0.0 W07-W12 S22-S20
     15 1732  582 (S14W63 L=118)  1845    263        1 (1645/ 490-1812/ 676)  63.4 W57-W68 S20-S06
     16  704  528 (S38E13 L= 42)   337     43        1 ( 685/ 496- 726/ 551) -76.0 E14-E11 S40-S36
     17  645  493 (S42E18 L= 37)   293     69        1 ( 624/ 471- 676/ 515)  45.0 E19-E14 S44-S40
     18 1505  383 (S31W54 L=109)  1280    130        3 (1443/ 352-1564/ 428)  20.0 W49-W61 S34-S28
     19 1306  369 (S37W38 L= 93)   307     63        0 (1284/ 353-1335/ 389)   0.0 W35-W40 S37-S35
  

    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