Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1039 1791 (N51W33 L=145)   327     77        0 (1018/1749-1055/1821)  21.8 W27-W37 N48-N52
      2 1387 1763 (N36W56 L=167)   685     75        1 (1352/1735-1428/1788)  -5.7 W50-W60 N34-N37
      3 1351 1651 (N31W43 L=154)   327     51        0 (1323/1635-1382/1666) -11.3 W40-W45 N29-N31
      4 1058 1592 (N36W20 L=132)   316     52        0 (1038/1563-1088/1616)  21.8 W18-W23 N34-N37
      5 1412 1390 (N15W33 L=145)   270     38        0 (1386/1373-1442/1406) -33.7 W31-W34 N13-N15
      6 1017 1366 (N24W09 L=121)   263     36        0 ( 991/1345-1046/1383) -18.4 W07-W10 N23-N25
      7 1821 1324 (S01W63 L=175)  1467     92        1 (1767/1283-1874/1351) -17.1 W57-W70 S03-N01
      8  490 1121 (N23E31 L= 81)  1450    240        4 ( 372/1094- 618/1166) -24.0 E39-E21 N19-N27
      9 1263 1138 (N05W16 L=128)   200     86        0 (1221/1115-1302/1166)   0.0 W13-W19 N04-N05
     10 1033 1114 (N10W03 L=115)   185     86        0 ( 991/1105-1082/1125) -11.3 W00-W05 N08-N11
     11 1899  996 (S22W62 L=174)   498     72        0 (1882/ 958-1910/1034)  45.0 W59-W64 S23-S19
     12  778  907 (N04E17 L= 95)   435    232        0 ( 702/ 870- 835/ 987)  11.3 E21-E11 N02-N07
     13 1530  943 (S13W27 L=139)   242     48        0 (1514/ 913-1546/ 968) -90.0 W26-W28 S14-S10
     14 1551  856 (S18W27 L=139)   316    115        0 (1510/ 811-1582/ 903)  26.6 W23-W29 S19-S16
     15  341  865 (N12E47 L= 65)   360     58        1 ( 308/ 841- 367/ 889)  18.4 E50-E44 N10-N12
     16 1727  723 (S32W40 L=152)  1930    358        3 (1653/ 611-1850/ 880)  27.6 W32-W54 S38-S26
     17  160  851 (N14E68 L= 44)  1150    105        1 ( 112/ 807- 202/ 871)  -7.1 E77-E61 N11-N15
     18 1370  774 (S18W13 L=125)   336    109        0 (1339/ 729-1404/ 818)  26.6 W10-W16 S19-S15
     19  316  654 (N00E57 L= 55)  2853    325        5 ( 230/ 527- 395/ 791)  20.6 E77-E45 S06-N06
     20  262  708 (N04E60 L= 52)   544     86        2 ( 230/ 679- 298/ 748) -45.0 E63-E56 N02-N06
     21 1439  610 (S30W14 L=126)   587    277        0 (1378/ 498-1500/ 724)  45.0 W08-W20 S36-S24
     22  614  636 (S07E34 L= 78)   528    138        0 ( 575/ 584- 662/ 686)  24.0 E38-E29 S09-S05
     23 1658  496 (S47W33 L=145)   465     55        0 (1631/ 478-1687/ 517) -20.6 W29-W37 S49-S44
     24 1318  360 (S44E01 L=111)   343     61        0 (1304/ 328-1336/ 400)  80.5 E02-W00 S47-S41
     25  921  191 (S45E40 L= 71)   571     45        0 ( 890/ 175- 951/ 211)   0.0 E44-E36 S46-S43
  

    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