Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  967 1706 (N51W20 L=290)   410     67        0 ( 947/1667- 985/1741)  40.6 W17-W24 N47-N53
      2 1381 1669 (N34W48 L=318)   326     39        0 (1357/1653-1411/1686) -45.0 W45-W50 N32-N35
      3 1513 1543 (N23W49 L=319)   664    188        1 (1482/1459-1535/1622)  55.0 W44-W52 N18-N28
      4 1651 1577 (N20W64 L=334)  1633    131        5 (1589/1529-1699/1617) -60.3 W59-W70 N16-N24
      5  441 1321 (N38E35 L=235)  1107    199        1 ( 358/1260- 527/1357) -27.9 E44-E27 N32-N41
      6 1052 1268 (N20W08 L=278)   342    116        1 (1005/1233-1100/1294) -51.3 W04-W10 N17-N22
      7  862 1269 (N25E04 L=266)   858    203        2 ( 760/1241- 954/1291) -14.0 E10-W02 N22-N27
      8 1046 1176 (N15W05 L=275)   203     19        0 (1023/1161-1069/1192) -33.7 W03-W06 N14-N16
      9 1238 1146 (N09W15 L=285)   454    108        2 (1197/1111-1272/1190)  26.6 W12-W18 N07-N11
     10 1668 1102 (S05W42 L=312)  1140    183        5 (1630/1013-1697/1184)  38.7 W36-W46 S09-N00
     11  422 1056 (N22E39 L=231)   997    177        2 ( 355/ 993- 490/1112) -45.0 E44-E33 N16-N26
     12 1148 1046 (N06W07 L=278)   184     28        0 (1130/1022-1165/1069) -90.0 W06-W08 N03-N07
     13 1598  623 (S33W28 L=298)  4849    674       10 (1455/ 391-1772/ 920)  46.0 W15-W47 S47-S18
     14  221  836 (N12E62 L=208)   413     80        1 ( 204/ 798- 232/ 874) -90.0 E63-E60 N09-N13
     15 1126  621 (S19E04 L=266)   210     62        1 (1112/ 589-1145/ 656)  78.7 E04-E02 S21-S16
     16 1103  543 (S23E07 L=263)   281     97        0 (1058/ 520-1142/ 578)  18.4 E10-E04 S23-S21
     17  518  398 (S20E53 L=217)   434     69        0 ( 502/ 352- 531/ 430)  50.2 E56-E50 S23-S17
     18 1400  369 (S46W09 L=279)   937    101        2 (1352/ 339-1445/ 410) -36.9 W04-W12 S48-S42
     19  964  332 (S35E24 L=246)   634    106        1 ( 928/ 295-1003/ 372)  24.0 E28-E19 S36-S32
     20 1279  296 (S48E04 L=266)   441     57        2 (1253/ 270-1303/ 322)  18.4 E06-W00 S50-S45
     21 1177  235 (S50E15 L=255)   726     89        2 (1133/ 210-1221/ 262) -23.2 E19-E11 S52-S47
  

    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