Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  822 1813 (N38E46 L=155)  1161    190        5 ( 740/1778- 910/1843)   3.0 E55-E36 N35-N39
      2  665 1725 (N27E49 L=151)   669     52        1 ( 635/1699- 708/1749)   0.0 E53-E45 N25-N28
      3  940 1724 (N35E30 L=170)   315     59        1 ( 912/1696- 964/1742)  -9.5 E32-E26 N33-N36
      4  505 1668 (N19E58 L=142)   777    138        0 ( 455/1630- 557/1706)  60.3 E60-E55 N15-N22
      5  658 1525 (N14E37 L=163)   698    134        3 ( 611/1467- 701/1584) -54.5 E40-E34 N10-N17
      6 1626 1370 (N33W30 L=230)   780    184        0 (1574/1293-1652/1456) -52.1 W24-W32 N28-N37
      7 1143 1395 (N19E04 L=197)   261    124        0 (1096/1345-1171/1436) -33.7 E07-W00 N16-N20
      8  852 1401 (N11E20 L=180)   242     78        1 ( 811/1388- 890/1421)  36.9 E22-E17 N09-N12
      9  539 1287 (S03E36 L=164)  1375    270        1 ( 455/1192- 596/1406)  77.9 E39-E33 S09-N05
     10 1480 1307 (N24W19 L=220)   773    185        4 (1429/1219-1506/1383) -45.0 W14-W22 N19-N28
     11  380 1292 (S06E48 L=152)  1072    208        2 ( 354/1186- 407/1375) -45.0 E53-E42 S11-S01
     12 1804 1330 (N38W50 L=250)   487     73        0 (1789/1295-1824/1358)  51.3 W47-W53 N35-N41
     13  216 1260 (S11E64 L=136)   681     80        0 ( 193/1220- 239/1301)  68.2 E66-E62 S13-S08
     14 1205 1228 (N11W04 L=205)   404    118        1 (1161/1183-1249/1269) -26.6 W01-W07 N09-N12
     15 1445 1176 (N15W20 L=220)   267     87        0 (1407/1147-1482/1203)  -9.5 W17-W23 N14-N16
     16  603  981 (S18E24 L=176)   948    293        0 ( 520/ 889- 699/1086)  65.0 E27-E19 S25-S10
     17 1086 1063 (S01W02 L=203)   187     37        0 (1057/1049-1111/1077)  18.4 W00-W03 S02-N00
     18  945  937 (S12E02 L=198)   224     76        0 ( 922/ 911- 972/ 963)  76.0 E03-W00 S13-S09
     19 1099  815 (S15W10 L=210)   189     36        2 (1076/ 797-1122/ 835)  45.0 W08-W11 S15-S13
     20 1292  798 (S10W22 L=222)   669    209        4 (1230/ 758-1374/ 835)  12.5 W18-W27 S12-S07
     21 1157  780 (S15W14 L=215)   479    113        2 (1114/ 748-1208/ 819)  63.4 W12-W16 S17-S11
     22  929  650 (S29W05 L=206)  1201    361        3 ( 795/ 613-1094/ 717)  14.7 E04-W15 S31-S23
     23  774  378 (S52W06 L=206)   874    215        1 ( 680/ 352- 875/ 421)   9.0 E04-W15 S54-S49
  

    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